home *** CD-ROM | disk | FTP | other *** search
/ Aminet 1 (Walnut Creek) / Aminet - June 1993 [Walnut Creek].iso / aminet / dev / lang / pcq12src.lzh / Runtime / System / Exec / Semaphores.asm < prev    next >
Assembly Source File  |  1990-05-10  |  2KB  |  92 lines
  1. *
  2. *    Semaphore.asm of PCQ Pascal
  3. *    Copyright (c) 1990 Patrick Quaid
  4. *
  5. *    These are the glue routines for the functions and procedures
  6. *    defined in Include/Exec/Semaphore.i
  7. *
  8.  
  9.     SECTION    PCQ_Runtime,CODE
  10.  
  11.     XREF    _AbsExecBase
  12.  
  13.     XREF    _LVOAddSemaphore
  14.     XDEF    _AddSemaphore
  15. _AddSemaphore
  16.     move.l    4(sp),a1
  17.     move.l    _AbsExecBase,a6
  18.     jmp    _LVOAddSemaphore(a6)
  19.  
  20.     XREF    _LVOAttemptSemaphore
  21.     XDEF    _AttemptSemaphore
  22. _AttemptSemaphore
  23.     move.l    4(sp),a0
  24.     move.l    _AbsExecBase,a6
  25.     jmp    _LVOAttemptSemaphore(a6)
  26.  
  27.     XREF    _LVOFindSemaphore
  28.     XDEF    _FindSemaphore
  29. _FindSemaphore
  30.     move.l    4(sp),a1
  31.     move.l    _AbsExecBase,a6
  32.     jmp    _LVOFindSemaphore(a6)
  33.  
  34.     XREF    _LVOInitSemaphore
  35.     XDEF    _InitSemaphore
  36. _InitSemaphore
  37.     move.l    4(sp),a0
  38.     move.l    _AbsExecBase,a6
  39.     jmp    _LVOInitSemaphore(a6)
  40.  
  41.     XREF    _LVOObtainSemaphore
  42.     XDEF    _ObtainSemaphore
  43. _ObtainSemaphore
  44.     move.l    4(sp),a0
  45.     move.l    _AbsExecBase,a6
  46.     jmp    _LVOObtainSemaphore(a6)
  47.  
  48.     XREF    _LVOObtainSemaphoreList
  49.     XDEF    _ObtainSemaphoreList
  50. _ObtainSemaphoreList
  51.     move.l    4(sp),a0
  52.     move.l    _AbsExecBase,a6
  53.     jmp    _LVOObtainSemaphoreList(a6)
  54.  
  55.     XREF    _LVOProcure
  56.     XDEF    _Procure
  57. _Procure
  58.     move.l    4(sp),a1
  59.     move.l    8(sp),a0
  60.     move.l    _AbsExecBase,a6
  61.     jmp    _LVOProcure(a6)
  62.  
  63.     XREF    _LVOReleaseSemaphore
  64.     XDEF    _ReleaseSemaphore
  65. _ReleaseSemaphore
  66.     move.l    4(sp),a0
  67.     move.l    _AbsExecBase,a6
  68.     jmp    _LVOReleaseSemaphore(a6)
  69.  
  70.     XREF    _LVOReleaseSemaphoreList
  71.     XDEF    _ReleaseSemaphoreList
  72. _ReleaseSemaphoreList
  73.     move.l    4(sp),a0
  74.     move.l    _AbsExecBase,a6
  75.     jmp    _LVOReleaseSemaphoreList(a6)
  76.  
  77.     XREF    _LVORemSemaphore
  78.     XDEF    _RemSemaphore
  79. _RemSemaphore
  80.     move.l    4(sp),a1
  81.     move.l    _AbsExecBase,a6
  82.     jmp    _LVORemSemaphore(a6)
  83.  
  84.     XREF    _LVOVacate
  85.     XDEF    _Vacate
  86. _Vacate
  87.     move.l    4(sp),a0
  88.     move.l    _AbsExecBase,a6
  89.     jmp    _LVOVacate(a6)
  90.  
  91.     END
  92.